object Clocks: TClocks Left = 200 Top = 99 BorderIcons = [] BorderStyle = bsDialog Caption = 'Clocks' ClientHeight = 196 ClientWidth = 283 Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] PixelsPerInch = 96 Position = poScreenCenter OnCreate = FormCreate TextHeight = 16 object LEDClock1: TLEDClock Left = 5 Top = 153 Width = 136 Height = 30 Hint = 'An LED clock. Enough said.' BackColor = clOlive UnlitColor = clOlive LitColor = clYellow end object AnalogClock1: TAnalogClock Left = 5 Top = 8 Width = 136 Height = 137 Hint = 'Hey look kids, it'#39's an analog clock!' FaceColor = clYellow HandsColor = clBlue OutlineColor = clBlue SecHandColor = clRed TickColor = clBlue end object ShadowButton1: TShadowButton Left = 171 Top = 148 Width = 89 Height = 33 Hint = 'Click me to make this window go away!' Cancel = True Caption = 'OK' Default = True ModalResult = 1 TabOrder = 3 end object chkShowSecs: TLEDCheckBox Left = 151 Top = 100 Width = 126 Height = 17 Hint = 'Toggle the display of seconds on the clocks.' Caption = 'Show Seconds' Checked = True LitColor = clYellow State = cbChecked TabOrder = 2 UnlitColor = clOlive OnClick = chkShowSecsClick end object GroupBox1: TGroupBox Left = 151 Top = 8 Width = 126 Height = 77 Caption = 'Clock Shape' TabOrder = 1 object rbCircle: TBWCCRadioButton Left = 11 Top = 24 Width = 94 Height = 17 Hint = 'Select the shape of the analog clock.' Caption = 'Circle' Checked = False Color = clBtnFace ParentColor = False TabOrder = 0 OnClick = rbCircleClick end object rbSquare: TBWCCRadioButton Left = 11 Top = 48 Width = 94 Height = 17 Hint = 'Select the shape of the analog clock.' Caption = 'Square' Checked = False Color = clBtnFace ParentColor = False TabOrder = 1 OnClick = rbSquareClick end end end